Function conv_Rad_Grados(ByVal radianes As Double) As Double
    Dim grados, Pi As Double
    Pi = (4 * Atn(1))
    grados = (radianes * 180) / Pi
    conv_Rad_Grados = grados
End Function
